home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 5 / CD-ROM Today - The Disc (Issue 5)(November 1994).ISO / mac / Mac shareware / Education / RLaB / rlib / epsilon.r < prev    next >
Encoding:
Text File  |  1994-09-21  |  160 b   |  16 lines  |  [TEXT/ttxt]
  1. //
  2. //  Compute machine epsilon
  3. //
  4.  
  5. epsilon = function() 
  6. {
  7.   local(eps);
  8.  
  9.   eps = 1.0;
  10.   while((eps + 1.0) != 1.0) 
  11.   {
  12.     eps = eps/2.0;
  13.   }
  14.   return eps;
  15. };
  16.